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.TITLE TSNAME - Site name 
ENABL LC 
Copyright 1981, 1982, 19S3, 1984, 1985> 1986, 1987, 1988. 
S&H Computer Systems, Inc. 
Nashville, Tennessee 
. PSECT CBNAME 

. GLOBL SUMS, SUCS, TSXLN, GRTl, SUPCOD, TRGRET, LICTXT, NAMTOP, MDT 
. GLOBL DISTRB,SITE, LICENS, LICNUM 
MICRO = 

; Store text string & compute checksum for it. 



SUCS 



NAME 



TBXLN 

SUCS 
MDT 
052 GRTl : 



130 



SUCS 

SUMS 

NAME 

NEWLIN 

NAME 

NEWLIN 

NAME 

NEWLIN 

NAME 

NEWLIN 

NAME 



; Macro to define site name 

i allocate enough space for 30 char (micro) 



. MACRO NAME TEXT 
. IRPC CHAR, <TEXT> 
.BYTE -<"CHAR> 

SUCS- ' 'CHAR 
. ENDM 

. ENDM NAME 
. MACRO SNAME TEXT 
NAME <'TEXT> 
. IF NE, MICRO 

. NCHR ***, <'TEXT> 

. REPT 30. -$** 

NAME < > 

. ENDR 
. ENDC 

. ENDM SNAME 

.MACRO LICENSE NUMBER ; Macro to define license # 
<'NUMBER> 
. IF NE, MICRO ; allocate enough space for 5 digits (micro) 

. NCHR ***, < 'NUMBER> 

. REPT 5. -*** 



NAME 



<l -> 



. ENDR 



ENDC 



•-^D 'NUMBER 
LICENSE 



; Macro to store <CRZ><LF> into the text string. 



. ENDM 

. MACRO NEWLIN 

.BYTE <-15:>, <-l^> 
SUCS-15-12 

. ENDM NEWLIN 

= 0. 

. NLIST BEX 

. ASCII <15><12>/* / 

. IF NE, MICRO 

.ASCII \Micro/\ 

. ENDC 

. ASCIZ /TSX-Plus Version 6.31 «/<12> 

. EVEN 

i INITIALIZE CHECKSUM 

.+1246 ; ENCR I PT ADDRESS 

<Copyright (c) 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988> 

<an unpublished ujorfe by S&H Computer Systems, Inc., Nashville, TN, USA> 
<<S&H) covered by U.S. Patent No. 4,642,756. All rights reserved. > 
<This material contains the valuable properties and trade secrets of S8eH> 
<and may not be used except by the express written permission of S&H. > 
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000561 
000563 
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000713 
000716 
000716 
000750 
000752 
000752 
000766 
000766 
000771 
000772 
000773 
000774 
000774 
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000776 
000776 
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001005 
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000 



115535 
001006 

000001 
etected: 



NEWLIN 

NAME 

DISTRB: 

NAME 

NEWLIN 

NAME 

TRORET: 

NAME 

SITE: 

NAME 

NEWLIN 

LICTXT: 

NAME 

LICENS: 

NAME 

NAME 

NAME 

NAME 

SUPCOD; 

NAME 

NAME 

LICNUM: 

LICENSE <00044 

NEWLIN 

. BYTE 
. EVEN 

sues 

NAMTOP : 

. END 



- — — — -J 

<S&H Computer Systems.- Inc. > 

<:Licensed for use on a single computer system > 

<at > 

<S&H Computer Systems* Inc. > 



<License # 

<999> 
<-> 
<T> 
<1> 

<S> 

<-> 







-SUCS>+1 



iEND OF COPYRIGHT LINE 

;ENCRIPT CHECKSUM SLIGHTLY 
i TOP OF TSNAME MODULE 



*»* Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 8496 Words < 34 Pages) 

Size of core pool: 17920 Words ( 70 Pages) 

Operating system: RT-11 

Elapsed time: 00:00:12.11 

DK: TSNAME< LP: TSNAME=DK: TSNAME. MAC/C/N: SYM 
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